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(1) 28 DECLARATIONS 

$6: 9 CTERM_VMSQIO = Handle VMS Qio 

(3) 08 CT VMSQIO_DONE = complete VMS qio 
(4) 00 XXX = 
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TITLE Mh hd 4 3 = RTPAD/CTERM VMS specific protocol 
- IDENT 
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DIGITAL EQUIPMENT. Co EORPORATION, MAYNARD. MASSACHUSETTS. 
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* * 
* te ‘kethe ft, Age meee A LICENSE AND MAY BE USED AND sorte * 
e IN ACCORDANCE WITH THE Ns OF sven bICERSE AND WITH THE * 
* USION OF THe ABOVE git OTICE. THIS $ ARE OR ANY OTHER * 
® ES THEREOF MAY NOT BE P ROVIDED OR OTHERWISE OMADE AVAILABLE TO ANY * 
* R PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. * 
& & 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. * 
* * 
2 * 
* * 
x * 
® * 
sf a 
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SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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ABSTRACT: 
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AUTHOR: Jake VanNoy, CREATION DATE: 5S-Jan-83 
MODIFIED BY: 
v03-003 JLV0291 Jake Van Noy a T -1983 
Changes to al ton this module with ECO's oat ied in 
January for CTERM extensions. 


v03-002 JLV0238 Jake VanNoy 29-MAR-1983 
Change name of than Ay tren” CTVMSQIO. 


SOoooooooo 


| 
v03-001 "HB0090 Mark Bramhall 2-Mar-1983 | 
Added correct .PSECT usage. | 
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RM VMS specific protocol 'g 


INCLUDE FILES: 
SRTPADDEF 
STSADEF 


: MACROS: 
> EQUATED SYMBOLS: 


OWN STORAGE: 


-PSECT _RTPAD,LONG 

QREGISTERS: 

QR1: ~BLKL 1 
QR2: ~BLKL 1 
QRS: ~BLKL 1 
QR4: -BLKL 1 
QRS: -BLKL 1 
QR6: -BLKL 1 
QCHAN: -BLKL 1 
QFUNC: -BLKL 1 


-PSECT RTPAD,NOWRT 
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; Read/Write data 
; Code 
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= Hand 


MEMO OD NO NEW 9 OD NOUN UN 9 ODA UNE WI OOD NAF WWI OO OONOUS WOO 


PERE FWA MAUI 4 4 BQO OO 000 0000.0.00000.0.0.00 
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aa 


FUNCTIONAL DESCRIPTION: 


Take VAX/VMS ‘‘mode message’’ and format it into a Q10. 
*ee This module may also handle RTPAD/TIMODExxx interactions. 


; CALLING SEQUENCE: 
BSBw CTERM_VMSQI0 


; INPUT PARAMETERS: 
RO . 


AST BLOCK 
Ri-R6 = zero 
R7 = READCHAN 
R8 - uninitialized 
R11 = data block 
; IMPLICIT INPUTS: 
WRITECHAN 
; OUTPUT PARAMETERS: 
RO - preserved 
Ri-R6 == Pl=-P6 of Q10 
R7 = channel number 
R8 = function code 
R11 - preserved 
IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


Se Se Se Se Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Se Se Se Ge Se Ge Ge Ge Ge Ge Se Se Ge Ge Ge Se Se Se Se Ge Se Se Se 


CTERM_VMSQIO:: 
CLRQ w*ar :; Initialize outputs 
CLRQ  —s-: W* QR : 
CLRQ WOR : 
ot R? W*QCHAN 3; Save 
CLRL —- ASTSL_ODATACRO) + assume no buffer 


MOVZ2WL CTPSW_MSGSIZE(R11),R9 =; Get Length of messa 
SUBL2 #<CTPSW_VMS_PLEN-CfPS$B_MSGTYPE>.R ee 
; minus overhead 


#CTPSC_MT_VMSQI0,- 
ETpeb ASGTYPE CAT) 


atts ¢ to VMS Q10 
3 are to 
BEQL «308 ys 


i 


ie VMS s specific revecat ’ Tener ~1386 §¢: 13: 33 yarlyes Macro Vv04-00 Page 


hb at 14 3 a 
V04- CTE = Handle VMS Qio RTPAD.SRCJR tvm SPEC .MAR;1 


3; *** Alternate mode must be handled here *** 


MINOR of RROB 
busH dshr$ valerr 
CALL »G*CIBSSIGNAL 3 error ee* 
3 eee wast to do here? 


89090000" F OD 
00000000" 1 


: VMS mode gio 


MOVZWL Abe ry VMS_FUNC(R11),= 
3 Function code 


MOVA CrPsu VMS_PLEN(R11), R10 : : Get address of first paramter 
ADDL R10,R9 i end address = base + size 


~ 
So 
fh 


; Loop through paramter descriptors 
PARAM_LOOP: 
CMPL 


SSNS SSS SSSA PAA AAA AAA MMIII & a 


NAMA AN SO OD NAME WN 9 OD NAME WO ODNOAU EWI OO OONIO 
@o 
ow 
m 
o 


200$: ; return to do gio 
mOVa w*QR1,R1 ; Set outputs 


POLI tt et a a 2 ss 2 2 es se a nt ts 


' 
SA 59 D1 Q R9,R10 ; address at or past end ? 
48 15 004 ; Branch if run out of data 
58 6A OC OC re} MOVZWL VMSS$W_PLEN(R10) ,R8 ; Get length 
‘ 
02 €1 0047 BBC #CTPSV_VMS_BUFFER,- 
1B 02 AA etd VMS$W_PFLAGS(R10), ‘358 =; branch if data is present 
ie : 
pee ; This is a return buffer, must supply buffer 
ie ; 
50 pp D04C PUSHL RO > Sav 
FFAF* BS} BSBW G a5 Bur 3 Get “buffer 
52 ; dD 44 MOVL 3; Move address to R2 
8ED D054 POPL 3; Restor 
51 38 A tt MOVAB } PS$T_VMS shyt i R1 ; Set edarese 
4g AO 2 DO 60058 MOVL -ASTSL_ODA 3 save address of buffer 
32 AB 8 SF MOVW CIPS wns OENCRITD ; Save requested length *** 
58 4 OC clrl 3; *** null data... 
OD 11 006 sss, ORB 408 > Skip 
006 : 
51 06 AA 43 i 7 MOVAB VMSST peatatay©). By 3; Assume passed by reference 
00 £0 0066 BBS acted y 
04 02 AA 473 $y PrLAGsiR{O) 40$ ; Branch if passed by referernce 
51 AA 00 0070 pe vss “PDATACR10) ,R1 ; Set data 
D0 : 
‘tht 3; *** assumes qio parameter, should use flag #1 to validate 
ue 
52 AA C 0074 35 MOVZWL VASSW mass ta »,R2 3; Fetch paramter number (PCODE 777?) 
53 "CF 078 a MOVAB es ARTERS aR 3; base address 
FC A346 1 pO 007 34 MOVL j > set value 
SA 06 AA 36 prety VMSST_PDATA(R10) ,R10 ; add offset to R10 
5A 28 § % ADOL r8,R10 3 Add size of data field 
FFB 38 PARAM _LOOP ; Loop 
i 


51 O000°CF 7D 
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v04- CTERM_VMSQIO = Hand @ VMS Oho iets fi 9g: 18:23 ERTPAD SRe RTIVMSPEC.MAR: 1 eee 
OO8'CF 7D 0091 3 MOVQ =s-*W*QR RS ; 
O10 CF D 0096 i MOV W*QR5-R 
18'CF p 38 5 MOVQ W*QCHAN,R7 
0 A 6 RSB 


RE RR A Se BE Lh ARIES) Wee alee OR SEND A I 3 PEO or 
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be 808 CT_VMSQIO_DONE = complete vis gio ~$Eb 21382 85:18:33 ERIPAD: SRCIR tye SPEC.MAR;1 = (§) | 


03 -SBTTL CT_VMSQIO_DONE = complete VMS qio | 
Al 10 ;++ 
Al 1; 
Oat 19 ; FUNCTIONAL DESCRIPTION: 
Al 214; | 
OA1 i5 ; CALLING SEQUENCE: 
OA1 18 : NONE 
Q0A1 7: 
Boat 18 ; INPUT PARAMETERS: 
OAl 219; NONE 
00A1 > 3 
Q0A1 1 ; IMPLICIT INPUTS: 
00A1 ¢ ; NONE 
QOA1 : 
Q0A1 4 ; OUTPUT PARAMETERS: 
00A1 § 5; NONE 
0Q0A1 6; 
QOA1 227 ; IMPLICIT OUTPUTS: 
QOA1 226 ; NONE 
00A1 9; 
00A1 580 : COMPLETION CODES: 
00A1 31; NONE 
00A1 3 ; 
QOA1 33 ; SIDE EFFECTS: 
Q0A1 36 3 NONE 
00A1 35 ; 
00A1 36 ;-- 
00A1 37 
00A1 238 CT_VMSQIO_DONE:: 
00A1 239 
00A1 240; 
Beat $0) 3; *** should validate that this is a VAX Q10 mode message 
00000000°EF v7 OAT 348 DECL  WRITEQIO | 
2C AB BS «(OOA7) = 244 TSTL CTPSL_VMS_REQID(R11) : responeg expected? 
03 12 OOAA 245 BNEG : branch if yes | 
004A 31 OOAC eh BRW VMSQ10_DONE_EXIT ; done 
OOAF 47 110$: 
53 12 AO DO OQOOAF 48 MOVL ASTSL_ODATA(RO) ,R3 ; Buffer address 
oe 12 set $3 BNEQ 120$ ; Branch if there is one (data returned) | 
898 2] ; There is no data to return, only status (i.e. I0SB) 
pp 0B ee PUSHL RO ; Save RO | 
F46" 30 008 54 BSBW soy : Get buffer to write to net with 
53 DO OOBA 55 MOVL ROR ; Set address 
50 8E&D0 pep 28 POPL ; Retstore RO 
3 28 ; Intialize header cf message to be written and copy 10SB | 
C 60 1208: 
09 98 C 61 MOVZBW ernst DATA,=- 
26 AS C 6 PRO_MSGTYPE(R3) ; mode message, clear flags | 
OF 98 00C4 26 MOVZBW ats CMT VASOI9.- | 
2A A3 C6 264 P$B_ASGTYPE (R35 : qio request message 
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Vou005 CT_VMSQIO_DONE = conplete vhs qio iets §8:18:3 RTPAD.SRCJRTVMSPEC .MAR; 1 ° 
C dO MOVL CTPSL_VMS_REQID(R11),- 
CA CTPSL_VMS_REQID(R3) ; Set request ID 
4 A 7D MOVQ AST$Q_I0SB(RO),- 
OA CTPS$Q_VMS_IOSB(R3) 3 set iosb 
; set up for writing to net, calculate length 
51 OF 9A MOVZBL #<CTPST_VMS_RDATA=CTPS$B_MSGTYPE>,R1 
; Size of message up to data 
12 AO b3 TSTL ASTSL_ODATA(RO) ; Was data returned from Q10? 
18 1 BEQL 140$ ; Branch if not, I0SB only 
00 =6£0 BBS #CTPSV_VMS_USEIOSB,- 
09 38 AB CTPSB_OMS_FLAGS(R11),125$ ; Branch if should use I0SB for Len 
7E 2 AB HS MOVZWL CTPSW_VMS_PLEN(R11),-(SP) ; fetch Length requested 
~~ = -s ADDL2 (SP)+,R1 ; add to overhead 
Od 11 BRB 1408 


; There are two types of IOSB's to understand to calculate Length 
; of the data returned. The host driver has set the READLEN flag 
; if the format is (10SB+2)+(10SB+6), otherwise, length is 

: contained in (10SB+2), as in a WRITE QI0. 


125$: 
01 EI BBC #CTPSV_VMS_READLEN, - 
04 2B AB CTP$B_OMS_FLAGS(R11),130$ ; Branch if right 
1 OA AO AO nas ADDW2 AST$Q~10SB+6(RO),R1 : len is (10S8+25+(10SB+6) 
51 06 A0 AO ae ADDW2 AST$Q_I0SB+2(RO),R1 : add in (10SB+2) 


52 26A3_ 9E MOVAB CTPSB_PRO_MSGTYPE(R3),R2 ; Address of message 


VMSQ10_DONE_EXIT: 
05 RSB 
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WRITEQTO 
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H Psect synopsis ! 

PSECT No. Attributes 

-) 00 ¢ Q.) NOPIC USR 
-» QO1 ¢ ) NOPIC USR 
) 8 ( ¢ ) NOPIC USR 
-» O35 ( ) NOPIC  USR 


CON 
CON 
CON 
CON 
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LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
LCL NOS E WRT NOVEC BYTE 
LCL NOSHR EXE RD WRT NOVEC LONG 
LCL NOSHR EXE RD NOWRT NOVEC BYTE 
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+ 
; Performance indicators ! 


ween eeee See nrean eee eee = + 


Phase Page faults CPU Time Elapsed Time 
Initialization 33 :8 700.04 0:00:01.93 
Command processing i :00:00.45 0: 808-08 
Pass 1 219 8 : 18 - 8: +08 
pyabo} table sort “ 3 : 3-36 8: 0:08:86 
Symbol table output 6 $3 : 8°60 0:00: 6:5 
Psect synopsis output 3 0:00: 3-08 0:00:00.02 
Cross-reference output 8888 2 se Bs 
Assembler run totals 456 0:00:04.81 00:00:23.37 


The working set Limit was 1200 pages. 

25500 bytes_(50 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 476 non-local and 9 local symbols. 
source Lines were read in Pass 1, producing 15 object records in Pass 2. 

9 pages of virtual niemory were used to define 8 macros. 


SOP Sena ee Sew eee + 
' 
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Macro Library name Macros defined 
-$255$DUA28: CRTPAD.OBJIJRTPAD.MLB; 1 2 
_$255$0UA28: CSYS.OBJILIB.MLB; 0 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 3 
TOTALS (all Libraries) 5 


522 GETS were required to define 5 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RTVMSPEC/OBJ=OBJ$:RTVMSPEC MSRC$:RTVMSPEC/UPDATE=(ENHS:RTVMSPEC) +EXECML$/LIB+LIB$:RTPAD/LIB 
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